Netware Super Library/Netware Super Library.iso/inet_tcp/iauucp3/iauucp3.wcx

Wildcat! WCX | 1995-02-12 | 39KB | 2,121 lines

'! Decompiled with wccNosy version 4.20f (freeware)
'! Input File: in.wcx  39198 bytes  12/16/122  02:32:44pm
'! Code Segment Size  :20277 bytes
'! Data Segment Size  :26357 bytes
'! String Segment Size:18921 bytes
'! Compiled with WCC version 4.01

      Type Type42
        Filler0(1 To 6) As Byte
        s6 As String*70
        Filler76(1 To 14) As Byte
        s90 As String*70
        Filler160(1 To 14) As Byte
        s174 As String*70
        Filler244(1 To 20) As Byte
        w264 As Word
      End Type

      Type Type41
        s0(0 To 11) As String*40
        s480(0 To 11) As String*30
      End Type

      Type Type40
        l0 As Long
        s4 As String*80
        s84 As String*80
      End Type

      Type Type39
        l0 As Long
        s4 As String*80
        s84 As String*80
      End Type

      Type Type38
        Filler0(1 To 4) As Byte
        s4 As String*80
        s84 As String*80
        s164 As String*75
      End Type

      Type Type37
        l0 As Long
        s4 As String*80
        s84 As String*80
      End Type

      Type Type36
        l0 As Long
        s4 As String*80
        s84 As String*80
        s164 As String*75
        d239 As Date
      End Type

      Type Type35
        Filler0(1 To 4) As Byte
        s4 As String*80
      End Type

      Type Type34
        l0 As Long
        s4 As String*80
        s84 As String*80
        s164 As String*75
      End Type

      Type Type33
        l0 As Long
        s4 As String*80
        s84 As String*80
      End Type

      Type Type32
        l0 As Long
        s4 As String*80
        s84 As String*80
      End Type

      Type Type31
        Filler0(1 To 4) As Byte
        s4 As String*80
        s84 As String*80
        s164 As String*75
      End Type

      Type Type30
        l0 As Long
        s4 As String*80
        s84 As String*80
      End Type

      Type Type29
        l0 As Long
        s4 As String*80
        s84 As String*80
        s164 As String*75
        d239 As Date
      End Type

      Type Type28
        Filler0(1 To 4) As Byte
        s4 As String*80
      End Type

      Type Type27
        b0 As Byte
        s1 As String*160
      End Type

      Type Type26
        s0 As String*60
        s60 As String*80
        s140 As String*60
        s200 As String*80
        i280 As Integer
        s282 As String*60
      End Type

      Declare Sub Sub4461(s65534 As String)
      Declare Function Func4720(i65534 As Integer) As String
      Declare Sub Sub4892(s65534 As String, s65532 As String, l65530 As Long)
'!      Declare Function Func5254(s65534 As String, s65532 As String) As String
      Declare Function Func5436(s65534 As String) As Integer
      Declare Sub Sub5581(s65534 As String, l65532 As Long, w65530 As Word)
      Declare Sub Sub6745
      Declare Function Func7981 As Integer
      Declare Sub Sub8149(t31_65534 As Type31)
      Declare Sub Sub8315
      Declare Sub Sub9026
      Declare Sub Sub9613
      Declare Sub Sub10264(s65534 As String, s65532 As String, l65530 As Long)
'!      Declare Function Func10552(s65534 As String, s65532 As String) As String
      Declare Function Func10734(s65534 As String) As Integer
      Declare Sub Sub10884(s65534 As String, l65532 As Long, w65530 As Word)
      Declare Sub Sub12056
'!      Declare Function Func13287 As Integer
      Declare Sub Sub13455(t38_65534 As Type38)
      Declare Sub Sub13621
      Declare Sub Sub14337
      Declare Sub Sub14924
      Declare Sub Sub14936
      Declare Sub Sub15525
      Declare Sub Sub15823
      Declare Sub Sub16939
      Declare Sub Sub17455
      Declare Sub Sub18653
      Declare Sub Sub19086(s65534 As String)
      Declare Sub Sub19230
      Declare Sub Sub19697
      Declare Sub Sub19762
      Declare Sub Sub19835
      Declare Sub Sub19923(s65534 As String, i65532 As Integer)
      Declare Sub Sub19964(s65534 As String, s65532 As String)
'!      Declare Sub Sub20007(s65534 As String)
      Declare Function Func20058(mh65534 As MessageHeader) As Integer

      Dim t41_4463 As Type41
      Dim i5303 As Integer
      Dim s5307 As String
      Dim t26_5311 As Type26
      Dim i5653 As Integer
      Dim i5655 As Integer
      Dim s5657 As String
      Dim s5661 As String
      Dim s5665 As String*60
      Dim s5725 As String
      Dim s5729 As String
      Dim i5733 As Integer
      Dim s5735 As String*60
      Dim s5795 As String*60
      Dim s5855 As String*60
      Dim i5915 As Integer
      Dim i5917 As Integer
      Dim s5919 As String*40
      Dim w5959 As Word
      Dim i5961 As Integer
      Dim s5963 As String
      Dim s5967 As String
      Dim i5971 As Integer
      Dim s5973 As String
      Dim w5977 As Word
      Dim l5979(0 To 5000) As Long
      Dim s25983 As String
      Dim w25987 As Word
      Dim l25989(0 To 10) As Long
      Dim s26033 As String
      Dim mh26037 As MessageHeader

      Dim l65500_ As Long
      Dim i65504_ As Integer
      Dim l65506_ As Long
      Dim i65510_ As Integer
      Dim l65512_ As Long
      Dim i65516_ As Integer
      Dim l65518_ As Long
      Dim s65520_ As String '! Temporary
      Dim i65522_ As Integer '! Temporary
      Dim s65524_ As String
      Dim s65528_ As String
      Dim s65532_ As String

      CarrierCheck(-1)
      ActivityLog "User entered Internet Addresser 3.0 UUCP"
      Sub4461(("inadd3.prm"))
      i5733 = 0
      t26_5311.s200 = ProgPath
      t26_5311.s140 = t26_5311.s200 + "iadduucp.cfg"
      t26_5311.s282 = MakeWild.UserDatabasePath
      s5735 = ProgPath + "imsguucp.cfg"
      w5959 = 0
      i5961 = 0
      If MakeWild.RegString = "93-8433" Then
        t26_5311.s0 = MakeWild.SysopName
        t26_5311.s60 = MakeWild.BBSName
        s5729 = ""
        i5733 = -1
      Else
  260   t26_5311.s0 = "@8F@UNREGISTERED"
        t26_5311.s60 = "8F@UNREGISTERED"
        s5729 = "-+-UNREGISTERED Evaluation copy of Internet Addresser UUCP 3.0"
      End If
  295 s5657 = "TO: "
      If Not Exists(t26_5311.s140) Then
        If UserSec.SysopStatus = 2 Then
          Sub15823
          If i5653 = -1 Then
            Sub19086(("Configuration Error. Run Internet Addresser Again and Reconfigure"))
            WaitEnter
            GoTo 972
          End If
  402     GoTo 435
        End If
  408   Print "Internet Addresser is NOT configured"
        Print "Please ask a Sysop to Logon and run this program."
        WaitEnter
      Else
  435   Sub19835
        Sub19697
        Cls
        Sub19230
        Do
          Do
  456       i5971 = 0
            s5657 = "TO: "
            Cls
            Print "@0F@ Welcome to The Internet Addresser 3.0 UUCP@0E@ "
            Print " What would you like to do:"
            Print
            Print " @0E@[@0F@I@0E@] Send an Internet Message"
            Print " @0E@[@0F@O@0E@] Open your @0C@Personal @0E@Internet Address Book"
            Print " @0E@[@0F@P@0E@] Open the @0C@Public @0E@Internet Address Book"
            Print " @0E@[@0F@H@0E@] Help"
            Print " @0E@[@0F@G@0E@] Goodbye, Logoff System"
            Print " @0E@[@0F@Q@0E@] Quit back to @BBS@"
            If UserSec.SysopStatus = 2 Then
              Print " @0E@[@0F@R@0E@] Reconfigure InterNet Addresser"
            End If
  576       Print
            If UserSec.SysopStatus = 2 Then
              Print " @0E@ Your Choice [I, O, P, H, Q, R] ";
            Else
  612         Print " @0E@ Your Choice [I, O, P, H, Q] ";
            End If
            Do
  621         s5967 = UCase(InKey(1213417543))
            Loop Until s5967 > ""
            s65532_ = s5967
            If s65532_ = "I" Then
              GoTo 988
              GoTo 931
            End If
  690       If s65532_ = "O" Then
              If i5733 = -1 Then
                Sub14936
              Else
  735           GoTo 2705
              End If
  741         GoTo 931
            End If
  747       If s65532_ = "H" Then
              Sub18653
              GoTo 931
            End If
  776       If s65532_ = "G" Then
              ActivityLog "User Logged off Normally within IAUUCP"
              Goodbye -1
              GoTo 972
              GoTo 931
            End If
  819       If s65532_ = "P" Then
              GoTo 1637
              GoTo 931
            End If
  848       If s65532_ = "R" Then
              If UserSec.SysopStatus = 2 Then
                Sub15823
              End If
  890         GoTo 931
            End If
  896       If s65532_ = "Q" Then
              GoTo 972
              GoTo 931
            End If
  925     Loop
  931     If i5971 = -1 Then
            GoSub 4342
            Del s5661
            i5971 = 0
          End If
  966   Loop
      End If
  972
      Catch 13
        End
  988   Cls
        Print "@0C@It is important to remember that although Commercial Online services"
        Print "like @0F@CompuServe@0C@ use commas in there addresses, the @0F@Internet @0C@uses periods."
        Print "Please replace any commas you may have in an address with periods."
        Print
        Locate 5, 1
        If (s5795 = "") = 0 Then GoTo 1158
        Print "@0B@Please Enter the "
        Print "Destination Internet address: ";
        Locate 7, 1
        Print "@0F@["
        Locate 7, 80
        Print "]@0B@"
        Locate 7, 2
        Input s5725
        If (s5725 = "") = 0 Then GoTo 1144
        Print "@8C@Message Aborted"
        WaitEnter
        GoTo 456
 1144   s5657 = s5725
        GoTo 1236
 1158   s5657 = s5795
        s5795 = ""
        Locate 8, 1
        Print "Address "; t41_4463(i5917).s0; " imported from AddressBook"
        Print
 1236   s5963 = s5657 + Chr(13)
        Print "Please Enter the Subject: 60 Characters"
        Locate 9, 1
        Print "["
        Locate 9, 62
        Print "]"
        Locate 9, 2
        Input s5665
        If (s5665 = "") = 0 Then GoTo 1344
        Print "@8C@Message aborted"
        WaitEnter
        GoTo 456
 1344   Open "temp_msg.txt" For Output As 1
        Print #1, "To: "; s5963
        Close 1
        If (EditFile("temp_1.txt", 200, "Outbound Internet Message")) = 0 Then GoTo 1578
        Open "temp_msg.txt" For Append As 1
        Open "temp_1.txt" For Input As 2
 1446   If (Not EOF(2)) = 0 Then GoTo 1481
        Input #2, s5973
        Print #1, s5973
        GoTo 1446
 1481   Close 1
        Close 2
        Del "temp_1.txt"
        If (i5733 = 0) = 0 Then GoTo 1557
        Open "temp_msg.txt" For Append As 1
        Print #1, ""
        Print #1, s5729
        Close 1
 1557   s5661 = "temp_msg.txt"
        i5653 = 0
        GoTo 1604
 1578   i5653 = -1
        Print "@8C@Message aborted"
        WaitEnter
        GoTo 456
 1604   GoSub 4342
        i5961 = i5961 + 1
        Del s5661
        GoTo 456
 1637   If (i5733 = -1) = 0 Then GoTo 2165
        w5977 = 1
        If (Exists("public.sav")) = 0 Then GoTo 1703
        Print Func4720((31))
        WaitEnter
        End
 1703   Open "public.abo" For Random As 8 Len = 241 '! This value should probably be replaced with a "SizeOf" expression
 1723   Cls
        Print Func4720((32))
        SubText 1, Str(LOF(8))
        Print Func4720((33))
        Print
        Print Func4720((34))
        Print Func4720((35))
        Print Func4720((36))
        If (UserSec.SysopStatus = 2) = 0 Then GoTo 1910
        Print Func4720((38))
 1910
        Print Func4720((39))
        Print
        Print Func4720((40));
        Input s25983
        s65528_ = UCase(Left(s25983, 1))
        If (s65528_ = "A") = 0 Then GoTo 2013
        Sub6745
        GoTo 2148
 2013   If (s65528_ = "S") = 0 Then GoTo 2042
        Sub8315
        GoTo 2148
 2042   If (s65528_ = "L") = 0 Then GoTo 2071
        Sub9026
        GoTo 2148
 2071   If (s65528_ = "R") = 0 Then GoTo 2119
        If (UserSec.SysopStatus = 2) = 0 Then GoTo 2113
        Sub9613
 2113   GoTo 2148
 2119   If (s65528_ = "Q") = 0 Then GoTo 2148
        GoTo 2154
        GoTo 2148
 2148   GoTo 1723
 2154   Close 8
        GoTo 2699
 2165   w25987 = 1
        If (Exists(ProgPath + "public.sav")) = 0 Then GoTo 2220
        Print Func4720((31))
        WaitEnter
        End
 2220   Open ProgPath + "public.abo" For Random As 8 Len = 241 '! This value should probably be replaced with a "SizeOf" expression
 2245   Cls
        Print "@0F@UNREGISTERED EVALUATION COPY OF INTERNET ADDRESSER 3.0"
        Print "@8C@MAXIMUM OF 10 PUBLIC DATABASE ENTRIES"
        Print Func4720((32))
        SubText 1, Str(LOF(8))
        Print Func4720((33))
        Print
        Print Func4720((34))
        Print Func4720((35))
        Print Func4720((36))
        If (UserSec.SysopStatus = 2) = 0 Then GoTo 2450
        Print Func4720((38))
 2450
        Print Func4720((39))
        Print
        Print Func4720((40));
        Input s26033
        s65524_ = UCase(Left(s26033, 1))
        If (s65524_ = "A") = 0 Then GoTo 2553
        Sub12056
        GoTo 2688
 2553   If (s65524_ = "S") = 0 Then GoTo 2582
        Sub13621
        GoTo 2688
 2582   If (s65524_ = "L") = 0 Then GoTo 2611
        Sub14337
        GoTo 2688
 2611   If (s65524_ = "R") = 0 Then GoTo 2659
        If (UserSec.SysopStatus = 2) = 0 Then GoTo 2653
        Sub14924
 2653   GoTo 2688
 2659   If (s65524_ = "Q") = 0 Then GoTo 2688
        GoTo 2694
        GoTo 2688
 2688   GoTo 2245
 2694   Close 8
 2699   GoTo 456
 2705   If (UserSec.SysopStatus = 1 Or 2) = 0 Then GoTo 2809
        Cls
        Print "@0C@   @04@▄@0C@████████████████████████████████████████████████████████████████████████@07@"
        Print "@07@   @04@█@0C@██@04@▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█@0C@██@07@"
        Print "@07@   @04@█@0C@██@07@ @0C@This is an @8F@UNREGISTERED@07@ @0C@evaluation copy of Inmsg Only @0F@YOU@07@ @0C@    @07@    @04@█@0C@██@07@"
        Print "@07@   @04@█@0C@██@07@ @0C@as Sysop have access to an Address Book (Limited). Your@07@ @0C@users @07@    @04@█@0C@██@07@"
        Print "@07@   @04@█@0C@██@07@ @0F@DO NOT@0C@ have access to this area in the Unregisted version!    @07@    @04@█@0C@██@07@"
        Print "@07@   @04@█@0C@████████████████████████████████████████████████████████████████████████@07@"
        Print "@07@   @04@▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@0C@"
        WaitEnter
        GoTo 2902
        GoTo 2893
 2809   Cls
        Print "@0C@   @04@▄@0C@████████████████████████████████████████████████████████████████████████@07@"
        Print "@07@   @04@█@0C@██@04@▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█@0C@██@07@"
        Print "@07@   @04@█@0C@██@07@ @0C@This is an @8F@UNREGISTERED@07@ @0C@evaluation copy of InterNet Messenger!@07@    @04@█@0C@██@07@"
        Print "@07@   @04@█@0C@██@07@ @0C@Only your @0F@SYSOP@0C@ has access to an Address Book. Ask your Sysop @07@    @04@█@0C@██@07@"
        Print "@07@   @04@█@0C@██@07@ @0C@to Register me for Access to @0F@YOUR OWN PERSONAL @0C@InterNet Address@07@   @04@█@0C@██"
        Print "   @04@█@0C@██ Book for use with InterNet Messenger!                             @04@█@0C@██@07@"
        Print "@07@   @04@█@0C@████████████████████████████████████████████████████████████████████████@07@"
        Print "@07@   @04@▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@0C@"
        WaitEnter
        GoTo 4333
 2893   WaitEnter
        GoTo 456
 2902   i5303 = User.UserId
        s5307 = t26_5311.s282 + Str(User.UserId) + ".ABO"
        Open s5307 For Random As 1 Len = 840 '! This value should probably be replaced with a "SizeOf" expression
        Seek 1, i5303
        Get 1, -1, t41_4463 '! 840 bytes
        Close 1
        i5655 = 1
        i65522_ = 5
        l65518_ = 1
 3022   If l65518_ >= 0 Then GoTo 3054
        If i5655 < i65522_ Then GoTo 3173
        GoTo 3072
 3054   If i5655 > i65522_ Then GoTo 3173
        If (t41_4463(i5655).s0 = "") = 0 Then GoTo 3150
        t41_4463(i5655).s0 = "@0C@Empty@0B@"
 3150   i5655 = i5655 + l65518_
        GoTo 3022
 3173   t41_4463(0).s0 = "[e-mail]"
        Cls
        Print "@09@   @01@▄@09@█@19@████████████████████████████████████████████████████████████████@07@"
        Print "@07@   @01@█@09@██@01@▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█@09@██@07@"
        Print "@07@   @01@█@09@██@07@                        @03@        @07@                            @01@█@09@██@07@"
        Print "@07@  @09@ @01@█@09@██                      @03@Address Book@09@                          @01@█@09@██@07@"
        Print "@07@  @09@ @01@█@09@██  @8F@NOTE:@0F@ This Address Book is for Internet Addresses ONLY!   @01@█@09@██@07@"
        Print "@07@   @01@█@09@█@19@████████████████████████████████████████████████████████████████@07@"
        Print "@07@   @01@▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@03@"
        Print "@03@" + Chr(27) + "[3;28H@USER@'s@07@"
        Locate 9, 1
        Print "@0B@(0) Add: "; t41_4463(0).s0
        i5655 = 1
        i65516_ = 5
        l65512_ = 1
 3344   If l65512_ >= 0 Then GoTo 3376
        If i5655 < i65516_ Then GoTo 3472
        GoTo 3394
 3376   If i5655 > i65516_ Then GoTo 3472
        Print "@0B@("; i5655; ") Add: "; t41_4463(i5655).s0
        i5655 = i5655 + l65512_
        GoTo 3344
 3472   Print
        Print "@0E@Would you like to [@0F@R@0E@]edefine an Address, [@0F@W@0E@]rite to an address, or"
        Print "[@0F@A@0E@]bort your AddressBook?"
 3492   s5967 = UCase(InKey(1213417543))
        If (s5967 > "") = 0 Then GoTo 3492
        If (s5967 = "R") = 0 Then GoTo 3547
        GoTo 3599
 3547   If (s5967 = "W") = 0 Then GoTo 3570
        GoTo 4187
 3570   If (s5967 = "A") = 0 Then GoTo 3593
        GoTo 456
 3593   GoTo 456
 3599   If (InputYesNo("Would you like to redefine an address in your addressbook", 1213417543)) = 0 Then GoTo 4166
        i5917 = InputNumber("Which address? ", 1, 5)
        Print "New Address to save in Position #"; i5917
        Input s5855
        t41_4463(i5917).s0 = s5855
        i5915 = 1
        i65510_ = 5
        l65506_ = 1
 3716   If l65506_ >= 0 Then GoTo 3748
        If i5915 < i65510_ Then GoTo 3873
        GoTo 3766
 3748   If i5915 > i65510_ Then GoTo 3873
        If (i5917 = i5915) = 0 Then GoTo 3790
        GoTo 3850
 3790   t41_4463(i5915).s0 = t41_4463(i5915).s0
 3850   i5915 = i5915 + l65506_
        GoTo 3716
 3873   Open s5307 For Random As 1 Len = 840 '! This value should probably be replaced with a "SizeOf" expression
        Seek 1, i5303
        Put 1, -1, t41_4463 '! 840 bytes
        Close 1
        Open s5307 For Random As 1 Len = 840 '! This value should probably be replaced with a "SizeOf" expression
        Seek 1, i5303
        Get 1, -1, t41_4463 '! 840 bytes
        Close 1
        Cls
        Print "(0) Add: "; t41_4463(0).s0
        i5655 = 1
        i65504_ = 5
        l65500_ = 1
 4032   If l65500_ >= 0 Then GoTo 4064
        If i5655 < i65504_ Then GoTo 4160
        GoTo 4082
 4064   If i5655 > i65504_ Then GoTo 4160
        Print "@0B@("; i5655; ") Add: "; t41_4463(i5655).s0
        i5655 = i5655 + l65500_
        GoTo 4032
 4160   GoTo 4172
 4166   GoTo 4178
 4172   GoTo 3599
 4178   WaitEnter
        GoTo 2902
 4187   i5917 = InputNumber("Which Address would you like write to? (0-5) (6 to Abort)", 0, 6)
        If (i5917 = 6) = 0 Then GoTo 4233
        Print "ABORTED"
        GoTo 456
 4233   If (t41_4463(i5917).s0 = "Empty") = 0 Then GoTo 4291
        Print "This is an Empty slot. Try Again"
        GoTo 4187
 4291   s5795 = t41_4463(i5917).s0
        GoTo 988
 4333   Cls
        GoTo 456
 4342   If (Func20058(mh26037)) = 0 Then GoTo 4398
        AddMessage(mh26037, s5661, "", 1213417543)
        Print "@0C@InterNet Email Sent"
        ActivityLog "Internet Message sent via IAUUCP"
        WaitEnter
 4398   Return
      GoTo 4405
 4405

'! Called 1 time
      Sub Sub4461(s65534 As String)
        If User.Language <> "" Then
          If Exists(MakeWild.LanguagePath + User.Language + "\" + s65534) Then
            Open MakeWild.LanguagePath + User.Language + "\" + s65534 For Random As 9 Len = 161 '! This value should probably be replaced with a "SizeOf" expression
            GoTo 4717
          End If
        End If
 4602   If Exists(MakeWild.LanguagePath + s65534) Then
          Open MakeWild.LanguagePath + s65534 For Random As 9 Len = 161 '! This value should probably be replaced with a "SizeOf" expression
          GoTo 4717
        End If
 4670   Error 10
        Catch 10
          Print "Unable to open prompt file: "; s65534
          WaitEnter
          End
        GoTo 4717
 4717
      End Sub

'! Called 85 times
      Function Func4720(i65534 As Integer) As String
        Dim s65365 As String
        Dim t27_65369 As Type27

        If RIPEnabled Then
          i65534 = i65534 + LOF(9) / 2
        End If
 4769   Get 9, i65534, t27_65369 '! 161 bytes
        s65365 = Left(t27_65369.s1, t27_65369.b0)
        If Left(s65365, 2) = "<<" Then
          DisplayFile(Mid(s65365, 3, Len(s65365) - 2))
          Func4720 = ""
        Else
 4869     Func4720 = s65365
        End If
 4877
      End Function

'! Called 4 times
      Sub Sub4892(s65534 As String, s65532 As String, l65530 As Long)
        Dim s65520 As String
        Dim i65524 As Integer
        Dim s65526 As String

        MorePrompt(0)
        Print
        Print "Adding Words..."
        Delay 1
        s65526 = ""
        i65524 = Len(s65532)
 4948   Do While i65524 > 0
          s65520 = UCase(Mid(s65532, i65524, 1))
          If s65520 >= "A" And s65520 <= "Z" Then GoTo 5045
          If s65520 >= "0" And s65520 <= "9" Then
 5045       s65526 = Mid(s65532, i65524, 1) + s65526
          Else
 5077       If Len(s65526) > 0 And InStr(s65534, s65526) = 0 Then
              Print "Indexing..."
              Delay 1
              IndexAdd s65526, l65530
            End If
 5142       s65526 = ""
          End If
 5151     i65524 = i65524 - 1
        Loop
 5171   If Len(s65526) > 0 And InStr(s65534, s65526) = 0 Then
          Print "Indexing..."
          Delay 1
          IndexAdd s65526, l65530
        End If
 5236   MorePrompt(-1)
      End Sub

'! Called 0 times
'!      Function Func5254(s65534 As String, s65532 As String) As String
'!        Dim s65522 As String
'!        Dim i65526 As Integer

'!        Func5254 = ""
'!        i65526 = FreeFile
'!        Open ProgPath + s65534 For Input As i65526
'! 5309   Do While Not EOF(i65526)
'!          Input #i65526, s65522
'!          If Left(s65522, Len(s65532)) = s65532 Then
'!            Func5254 = Mid(s65522, 5, 20)
'!            GoTo 5392
'!          End If
'! 5386   Loop
'! 5392   Close i65526
'!        Catch 10
'!        GoTo 5421
'! 5421
'!      End Function

'! Called 2 times
      Function Func5436(s65534 As String) As Integer
        Dim t28_65287 As Type28
        Dim l65528 As Long

        Func5436 = 0
        IndexOpen("public.ix2")
        If IndexLookUp(s65534) = s65534 Then
          Do
 5483       l65528 = IndexNextRef
            If l65528 < 0 Then
              GoTo 5570
            End If
 5511       Get 8, l65528, t28_65287 '! 241 bytes
            If t28_65287.s4 = s65534 Then
              Func5436 = -1
              GoTo 5573
            End If
 5564     Loop
        End If
 5570   IndexClose
 5573
      End Function

'! Called 2 times
      Sub Sub5581(s65534 As String, l65532 As Long, w65530 As Word)
        Dim s65026 As String '! Temporary
        Dim s65030 As String '! Temporary
        Dim i65034 As Integer
        Dim i65036 As Integer
        Dim s65038 As String
        Dim i65042 As Integer
        Dim t29_65044 As Type29
        Dim t29_65285 As Type29
        Dim s65526 As String

        If l65532 > 0 Then
          Get 8, l65532, t29_65285 '! 241 bytes
          t29_65044 = t29_65285 '! 241 bytes
        Else
 5638     Print
          Do
 5640       Print "Please enter the address you'd like to add to the public Database: "
            s65526 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
            If Not Func5436(s65526) Then
              t29_65285.s4 = s65526
              GoTo 5734
            Else
 5719         Print "That Address is already in the Database"
            End If
 5728     Loop
 5734     Print
          Print "Who's address is this? i.e. Mircosoft, Bill clinton, etc: "
          t29_65285.s84 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
          Print
          Print "Please enter a description of this address. i.e. this is a ListServer,"
          Print "Corporation, Person, etc: "
          t29_65285.s164 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
        End If
        Do
 5831     Cls
          Print "1)@0B@          Address:@0F@ "; t29_65285.s4
          Print "2)@0B@              Who:@0F@ "; t29_65285.s84
          Print "3)@0B@ Summary of entry:@0F@ "; t29_65285.s164
          Print
          Print "Press [ENTER] to Quit/Save, (Q) to quit/No save, or Number to edit"
          Input s65526
          s65038 = UCase(s65526)
          If s65038 = "V" Then
            CurrentDate t29_65285.d239
            If l65532 > 0 Then
              Put 8, l65532, t29_65285 '! 241 bytes
            End If
 5985     Else
 5991       If s65038 = "Q" Then
              GoTo 6734
            Else
 6020         If s65038 = "" Then
                If t29_65285.s4 = "" Or t29_65285.s84 = "" Or t29_65285.s164 = "" Then
                  Print "You must fill in all fields"
                  WaitEnter
                Else
 6116             If InputYesNo("Is all the above information correct? [Y/n]", -1) Then
                    CurrentDate t29_65285.d239
                    IndexOpen("public.ix1")
                    If l65532 = 0 Then
                      l65532 = LOF(8) + 1
                      IndexAdd s65534, l65532
                    End If
 6200               t29_65285.l0 = User.UserId
                    Put 8, l65532, t29_65285 '! 241 bytes
                    IndexOpen("public.ix2")
                    Sub4892((t29_65044.s84), (t29_65285.s84), l65532)
                    If t29_65285.s4 <> t29_65044.s4 Then
                      IndexAdd t29_65285.s4, l65532
                    End If
 6351
                    Sub4892((t29_65044.s164), (t29_65285.s164), l65532)
                    GoTo 6734
                  End If
                End If
 6420         Else
 6426           i65036 = Val(s65526)
                If i65042 = 0 And i65036 >= 3 Then
                  i65036 = i65036 + 1
                End If
 6477           i65034 = i65036
                If i65034 = 1 Then
                  Print "Please enter the address you'd like to add to the public Database: "
                  s65526 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
                  If Not Func5436(s65526) Then
                    t29_65285.s4 = s65526
                  Else
 6575               Print "That Address is already in the Database"
                    WaitEnter
                  End If
 6587           Else
 6593             If i65034 = 2 Then
                    Print "Who's address is this? i.e. Mircosoft, Bill clinton, etc: "
                    t29_65285.s84 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
                  Else
 6656               If i65034 = 3 Then
                      Print "Please enter a description of this address. i.e. this is a ListServer,"
                      Print "Corporation, Person, etc: "
                      t29_65285.s164 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
                      GoTo 6728
                    End If
                  End If
                End If
              End If
            End If
          End If
 6728   Loop
 6734
      End Sub

'! Called 1 time
      Sub Sub6745
        Dim i65267 As Integer '! Temporary
        Dim l65269 As Long
        Dim i65273 As Integer '! Temporary
        Dim s65275 As String
        Dim s65279 As String
        Dim i65283 As Integer
        Dim l65285 As Long
        Dim t30_65289 As Type30
        Dim s65530 As String
        Dim i65534 As Integer

        i65534 = 0
        IndexOpen("public.ix1")
        s65530 = LeftPad(Str(User.UserId), 3)
        Do
 6790     If IndexLookUp(s65530) = s65530 Then
 6809       Do While i65534 < 5000
              l65285 = IndexNextRef
              If l65285 < 0 Then
                GoTo 6937
              End If
 6853         Get 8, l65285, t30_65289 '! 241 bytes
              If t30_65289.l0 > 0 Then
                i65534 = i65534 + 1
                l5979(i65534) = l65285
              End If
 6931       Loop
          End If
 6937     Cls
          Print Func4720((1))
          Print
          If i65534 > 0 Then
 7005       For i65283 = 1 To i65534 Step 1
              Get 8, l5979(i65283), t30_65289 '! 241 bytes
              SubText 1, LeftPad(Str(i65283), 2)
              SubText 2, Pad(t30_65289.s84, 35)
              SubText 3, "- " + t30_65289.s4
              Print Func4720((2))
            Next
 7203     Else
 7209
            Print Func4720((3))
          End If
 7234     Print
          If i65534 > 0 Then
            SubText 1, Str(i65534)
            Print Func4720((4));
          Else
 7294
            Print Func4720((5));
          End If
 7319
          Print Func4720((6));
          Input s65279
          s65275 = UCase(s65279)
          If s65275 = "A" Then
            If i65534 < 5000 Then
              l65285 = 0
              Sub5581(s65530, l65285, w5977)
              If l65285 > 0 Then
                l5979(i65534) = l65285
              End If
 7464       Else
 7470
              Print Func4720((7))
              WaitEnter
            End If
 7498     Else
 7504       If s65275 = "R" Then
              If i65534 > 0 Then
                i65283 = Val(InputMask(Func4720((8)), "9999", "", 1213417543))
                If i65283 > 0 Then
                  Get 8, l5979(1), t30_65289 '! 241 bytes
                  SubText 1, t30_65289.s4
                  If InputYesNo(Func4720((9)), 1213417543) Then
                    t30_65289.l0 = 0
                    Put 8, l5979(1), t30_65289 '! 241 bytes
 7726               Do While i65283 < i65534
                      l5979(i65283) = l5979(i65283 + 1)
                      i65283 = i65283 + 1
                    Loop
 7828               i65534 = i65534 - 1
                  End If
                End If
              End If
 7842       Else
 7848         If s65275 = "Q" Then
                GoTo 7963
              Else
 7877           i65283 = Val(s65279)
                If i65283 > 0 And i65283 <= i65534 Then
                  Sub5581(s65530, l5979(i65283), w5977)
                End If
              End If
            End If
          End If
 7957   Loop
 7963   IndexClose
      End Sub

'! Called 4 times
      Function Func7981 As Integer
        Dim i65528 As Integer '! Temporary
        Dim s65530 As String

        Print Func4720((10))
        Print
        Print Func4720((11))
        Print Func4720((12))
        Print Func4720((13))
        Print
        Print Func4720((14));
        Input s65530
        Func7981 = Val(s65530)
      End Function

'! Called 2 times
      Sub Sub8149(t31_65534 As Type31)
        Dim i65532 As Integer '! Temporary

        Print Func4720((15))
        Print Func4720((16)); Pad(t31_65534.s84, 40)
        Print Func4720((17)); Pad(t31_65534.s4, 40)
        Print
        Print Func4720((18)); t31_65534.s164
      End Sub

'! Called 1 time
      Sub Sub8315
        Dim i65277 As Integer '! Temporary
        Dim i65279 As Integer
        Dim l65281 As Long
        Dim l65285 As Long
        Dim t32_65289 As Type32
        Dim i65530 As Integer
        Dim s65532 As String

        Print Func4720((19));
        Input s65532
        If s65532 = "" Then
        Else
 8378     IndexOpen("public.ix2")
          Print Func4720((20));
          If IndexQuery(s65532) Then
            Print
            Print
            i65530 = Func7981
            If i65530 = 0 Then
              GoTo 9019
            End If
 8460       If i65530 < 3 Then
              Print Func4720((21))
              SortStart
              l65281 = 0
 8509         Do While InKey(1213417543) <> " "
                l65285 = IndexQueryNext
                If l65285 < 0 Then
                  GoTo 8758
                End If
 8558           Get 8, l65285, t32_65289 '! 241 bytes
                If t32_65289.l0 > 0 Then
                  i65279 = i65530
                  If i65279 = 1 Then
                    SortAdd t32_65289.s84, l65285
                  Else
 8636               If i65279 = 2 Then
                      SortAdd t32_65289.s4, l65285
                      GoTo 8675
                    End If
                  End If
 8675             l65281 = l65281 + 1
                  If l65281 Mod 16 = 0 Then
                    SubText 1, Str(l65281)
                    Print Func4720((22)); Chr(13);
                  End If
                End If
 8752         Loop
 8758         SubText 1, Str(l65281 - 1)
              Print Func4720((22))
            End If
 8800       l65285 = 0
 8806       Do While l65285 <= LOF(8) And Not DisplayStopped
              If i65530 < 3 Then
                l65285 = SortNext
              Else
 8860           l65285 = IndexQueryNext
              End If
 8868         If l65285 < 0 Then
                GoTo 8932
              End If
 8888         Get 8, l65285, t32_65289 '! 241 bytes
              If t32_65289.l0 > 0 Then
                Sub8149(t32_65289.l0)
              End If
 8926       Loop
 8932
            Print Func4720((15))
            Print Func4720((23))
          Else
 8988
            Print Func4720((24))
          End If
 9013     WaitEnter
          IndexClose
        End If
 9019
      End Sub

'! Called 1 time
      Sub Sub9026
        Dim i65281 As Integer '! Temporary
        Dim i65283 As Integer
        Dim l65285 As Long
        Dim l65289 As Long
        Dim t33_65293 As Type33
        Dim i65534 As Integer

        i65534 = Func7981
        If i65534 = 0 Then
        Else
 9066     If i65534 < 3 Then
            Print Func4720((21))
            SortStart
            l65285 = 0
            l65289 = 1
 9122       Do While l65289 <= LOF(8) And InKey(1213417543) <> " "
              Get 8, l65289, t33_65293 '! 241 bytes
              If t33_65293.l0 > 0 Then
                i65283 = i65534
                If i65283 = 1 Then
                  SortAdd t33_65293.s84, l65289
                Else
 9235             If i65283 = 2 Then
                    SortAdd t33_65293.s4, l65289
                    GoTo 9274
                  End If
                End If
 9274           l65285 = l65285 + 1
                If l65285 Mod 16 = 0 Then
                  SubText 1, Str(l65285)
                  Print Func4720((22)); Chr(13);
                End If
              End If
 9351         l65289 = l65289 + 1
            Loop
 9371       SubText 1, Str(l65285)
            Print Func4720((22))
          End If
 9409     l65289 = 0
 9415     Do While Not DisplayStopped
            If i65534 < 3 Then
              l65289 = SortNext
              If l65289 < 0 Then
                GoTo 9557
              End If
 9469       Else
 9475         l65289 = l65289 + 1
              If l65289 > LOF(8) Then
                GoTo 9557
              End If
            End If
 9513       Get 8, l65289, t33_65293 '! 241 bytes
            If t33_65293.l0 > 0 Then
              Sub8149(t33_65293.l0)
            End If
 9551     Loop
 9557
          Print Func4720((15))
          Print Func4720((23))
          WaitEnter
        End If
 9610
      End Sub

'! Called 1 time
      Sub Sub9613
        Dim s65271 As String '! Temporary
        Dim s65275 As String '! Temporary
        Dim i65277 As Integer '! Temporary
        Dim s65279 As String
        Dim s65283 As String
        Dim l65287 As Long
        Dim l65291 As Long
        Dim t34_65295 As Type34

        If Not InputYesNo(Func4720((25)), 0) Then
        Else
 9661
          Print Func4720((26))
          Close 8
          Open "public.abo" For Random As 1 Len = 241 '! This value should probably be replaced with a "SizeOf" expression
          s65283 = "public.ix1"
          s65279 = "public.ix2"
          Del s65283
          Del s65279
          Print Chr(13);
          Print Func4720((28))
          IndexOpen(s65283)
          l65291 = 1
 9790     Do While l65291 <= LOF(1)
            Print Chr(13); l65291; "/"; l65287;
            Get 1, l65291, t34_65295 '! 241 bytes
            Print "Indexing..."
            Delay 1
            IndexAdd LeftPad(Str(t34_65295.l0), 3), l65291
            l65291 = l65291 + 1
          Loop
 9911     Print Chr(13);
          Print Func4720((29))
          IndexOpen(s65279)
          l65291 = 1
 9958     Do While l65291 <= LOF(1)
            Print Chr(13); l65291; "/"; l65287;
            Get 1, l65291, t34_65295 '! 241 bytes
            Sub4892((""), (t34_65295.s84), l65291)
            Print "Indexing..."
            Delay 1
            IndexAdd t34_65295.s4, l65291
            Sub4892((""), (t34_65295.s164), l65291)
            l65291 = l65291 + 1
          Loop
10188     Print Chr(13);
          ClrEOL
          Print
          IndexClose
          Print Func4720((30))
          Open "public.abo" For Random As 8 Len = 241 '! This value should probably be replaced with a "SizeOf" expression
          WaitEnter
        End If
10253
      End Sub

'! Called 2 times
      Sub Sub10264(s65534 As String, s65532 As String, l65530 As Long)
        Dim s65520 As String
        Dim i65524 As Integer
        Dim s65526 As String

        s65526 = ""
        i65524 = Len(s65532)
10296   Do While i65524 > 0
          s65520 = UCase(Mid(s65532, i65524, 1))
          If s65520 >= "A" And s65520 <= "Z" Then GoTo 10393
          If s65520 >= "0" And s65520 <= "9" Then
10393       s65526 = Mid(s65532, i65524, 1) + s65526
          Else
10425       If Len(s65526) > 0 And InStr(s65534, s65526) = 0 Then
              IndexAdd s65526, l65530
            End If
          End If
10473     i65524 = i65524 - 1
        Loop
10493   If Len(s65526) > 0 And InStr(s65534, s65526) = 0 Then
          IndexAdd s65526, l65530
        End If
10541
      End Sub

'! Called 0 times
'!      Function Func10552(s65534 As String, s65532 As String) As String
'!        Dim s65522 As String
'!        Dim i65526 As Integer

'!        Func10552 = ""
'!        i65526 = FreeFile
'!        Open ProgPath + s65534 For Input As i65526
'!10607   Do While Not EOF(i65526)
'!          Input #i65526, s65522
'!          If Left(s65522, Len(s65532)) = s65532 Then
'!            Func10552 = Mid(s65522, 5, 20)
'!            GoTo 10690
'!          End If
'!10684   Loop
'!10690   Close i65526
'!        Catch 10
'!        GoTo 10719
'!10719
'!      End Function

'! Called 2 times
      Function Func10734(s65534 As String) As Integer
        Dim t35_65287 As Type35
        Dim l65528 As Long

        Func10734 = 0
        IndexOpen(ProgPath + "public.ix2")
        If IndexLookUp(s65534) = s65534 Then
          Do
10786       l65528 = IndexNextRef
            If l65528 < 0 Then
              GoTo 10873
            End If
10814       Get 8, l65528, t35_65287 '! 241 bytes
            If t35_65287.s4 = s65534 Then
              Func10734 = -1
              GoTo 10876
            End If
10867     Loop
        End If
10873   IndexClose
10876
      End Function

'! Called 2 times
      Sub Sub10884(s65534 As String, l65532 As Long, w65530 As Word)
        Dim s65026 As String '! Temporary
        Dim s65030 As String '! Temporary
        Dim i65034 As Integer
        Dim i65036 As Integer
        Dim s65038 As String
        Dim i65042 As Integer
        Dim t36_65044 As Type36
        Dim t36_65285 As Type36
        Dim s65526 As String

        If l65532 > 0 Then
          Get 8, l65532, t36_65285 '! 241 bytes
          t36_65044 = t36_65285 '! 241 bytes
        Else
10941     Print
          Do
10943       Print "Please enter the address you'd like to add to the public Database: "
            s65526 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
            If Not Func10734(s65526) Then
              t36_65285.s4 = s65526
              GoTo 11037
            Else
11022         Print "That Address is already in the Database"
            End If
11031     Loop
11037     Print
          Print "Who's address is this? i.e. Mircosoft, Bill clinton, etc: "
          t36_65285.s84 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
          Print
          Print "Please enter a description of this address. i.e. this is a ListServer,"
          Print "Corporation, Person, etc: "
          t36_65285.s164 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
        End If
        Do
11134     Cls
          Print "1)@0B@          Address:@0F@ "; t36_65285.s4
          Print "2)@0B@              Who:@0F@ "; t36_65285.s84
          Print "3)@0B@ Summary of entry:@0F@ "; t36_65285.s164
          Print "Press [ENTER] to Quit/Save, (Q) to quit/No save, or Number to edit"
          Input s65526
          s65038 = UCase(s65526)
          If s65038 = "V" Then
            CurrentDate t36_65285.d239
            If l65532 > 0 Then
              Put 8, l65532, t36_65285 '! 241 bytes
            End If
11286     Else
11292       If s65038 = "Q" Then
              GoTo 12045
            Else
11321         If s65038 = "" Then
                If t36_65285.s4 = "" Or t36_65285.s84 = "" Or t36_65285.s164 = "" Then
                  Print "You must fill in all fields"
                  WaitEnter
                Else
11417             If InputYesNo("Is all the above information correct? [Y/n]", -1) Then
                    CurrentDate t36_65285.d239
                    IndexOpen(ProgPath + "public.ix1")
                    If l65532 = 0 Then
                      l65532 = LOF(8) + 1
                      IndexAdd s65534, l65532
                    End If
11506               t36_65285.l0 = User.UserId
                    Put 8, l65532, t36_65285 '! 241 bytes
                    IndexOpen(ProgPath + "public.ix2")
                    Sub10264((t36_65044.s84), (t36_65285.s84), l65532)
                    If t36_65285.s4 <> t36_65044.s4 Then
                      IndexAdd t36_65285.s4, l65532
                    End If
11662
                    Sub10264((t36_65044.s164), (t36_65285.s164), l65532)
                    GoTo 12045
                  End If
                End If
11731         Else
11737           i65036 = Val(s65526)
                If i65042 = 0 And i65036 >= 3 Then
                  i65036 = i65036 + 1
                End If
11788           i65034 = i65036
                If i65034 = 1 Then
                  Print "Please enter the address you'd like to add to the public Database: "
                  s65526 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
                  If Not Func10734(s65526) Then
                    t36_65285.s4 = s65526
                  Else
11886               Print "That Address is already in the Database"
                    WaitEnter
                  End If
11898           Else
11904             If i65034 = 2 Then
                    Print "Who's address is this? i.e. Mircosoft, Bill clinton, etc: "
                    t36_65285.s84 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
                  Else
11967               If i65034 = 3 Then
                      Print "Please enter a description of this address. i.e. this is a ListServer,"
                      Print "Corporation, Person, etc: "
                      t36_65285.s164 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
                      GoTo 12039
                    End If
                  End If
                End If
              End If
            End If
          End If
12039   Loop
12045
      End Sub

'! Called 1 time
      Sub Sub12056
        Dim i65267 As Integer '! Temporary
        Dim l65269 As Long
        Dim i65273 As Integer '! Temporary
        Dim s65275 As String
        Dim s65279 As String
        Dim i65283 As Integer
        Dim l65285 As Long
        Dim t37_65289 As Type37
        Dim s65530 As String
        Dim i65534 As Integer

        i65534 = 0
        IndexOpen(ProgPath + "public.ix1")
        s65530 = LeftPad(Str(User.UserId), 3)
        If IndexLookUp(s65530) = s65530 Then
12125     Do While i65534 < 10
            l65285 = IndexNextRef
            If l65285 < 0 Then
              GoTo 12251
            End If
12168       Get 8, l65285, t37_65289 '! 241 bytes
            If t37_65289.l0 > 0 Then
              i65534 = i65534 + 1
              l25989(i65534) = l65285
            End If
12245     Loop
        End If
        Do
12251     Cls
          Print Func4720((1))
          Print
          If i65534 > 0 Then
12319       For i65283 = 1 To i65534 Step 1
              Get 8, l25989(i65283), t37_65289 '! 241 bytes
              SubText 1, LeftPad(Str(i65283), 2)
              SubText 2, Pad(t37_65289.s84, 35)
              SubText 3, "- " + t37_65289.s4
              Print Func4720((2))
            Next
12516     Else
12522
            Print Func4720((3))
          End If
12547     Print
          If i65534 > 0 Then
            SubText 1, Str(i65534)
            Print Func4720((4));
          Else
12607
            Print Func4720((5));
          End If
12632
          Print Func4720((6));
          Input s65279
          s65275 = UCase(s65279)
          If s65275 = "A" Then
            If i65534 < 10 Then
              l65285 = 0
              Sub10884(s65530, l65285, w25987)
              If l65285 > 0 Then
                l25989(i65534) = l65285
              End If
12775       Else
12781
              Print Func4720((7))
              WaitEnter
            End If
12809     Else
12815       If s65275 = "R" Then
              If i65534 > 0 Then
                i65283 = Val(InputMask(Func4720((8)), "999", "", 1213417543))
                If i65283 > 0 Then
                  Get 8, l25989(1), t37_65289 '! 241 bytes
                  SubText 1, t37_65289.s4
                  If InputYesNo(Func4720((9)), 1213417543) Then
                    t37_65289.l0 = 0
                    Put 8, l25989(1), t37_65289 '! 241 bytes
13035               Do While i65283 < i65534
                      l25989(i65283) = l25989(i65283 + 1)
                      i65283 = i65283 + 1
                    Loop
13135               i65534 = i65534 - 1
                  End If
                End If
              End If
13149       Else
13155         If s65275 = "Q" Then
                GoTo 13269
              Else
13184           i65283 = Val(s65279)
                If i65283 > 0 And i65283 <= i65534 Then
                  Sub10884(s65530, l25989(i65283), w25987)
                End If
              End If
            End If
          End If
13263   Loop
13269   IndexClose
      End Sub

'! Called 0 times
'!      Function Func13287 As Integer
'!        Dim i65528 As Integer '! Temporary
'!        Dim s65530 As String

'!        Print Func4720((10))
'!        Print
'!        Print Func4720((11))
'!        Print Func4720((12))
'!        Print Func4720((13))
'!        Print
'!        Print Func4720((14));
'!        Input s65530
'!        Func13287 = Val(s65530)
'!      End Function

'! Called 2 times
      Sub Sub13455(t38_65534 As Type38)
        Dim i65532 As Integer '! Temporary

        Print Func4720((15))
        Print Func4720((16)); Pad(t38_65534.s84, 40)
        Print Func4720((17)); Pad(t38_65534.s4, 40)
        Print
        Print Func4720((18)); t38_65534.s164
      End Sub

'! Called 1 time
      Sub Sub13621
        Dim i65277 As Integer '! Temporary
        Dim i65279 As Integer
        Dim l65281 As Long
        Dim l65285 As Long
        Dim t39_65289 As Type39
        Dim i65530 As Integer
        Dim s65532 As String

        Print Func4720((19));
        Input s65532
        If s65532 = "" Then
        Else
13684     IndexOpen(ProgPath + "public.ix2")
          Print Func4720((20));
          If IndexQuery(s65532) Then
            Print
            Print
            i65530 = Func7981
            If i65530 = 0 Then
              GoTo 14330
            End If
13771       If i65530 < 3 Then
              Print Func4720((21))
              SortStart
              l65281 = 0
13820         Do While InKey(1213417543) <> " "
                l65285 = IndexQueryNext
                If l65285 < 0 Then
                  GoTo 14069
                End If
13869           Get 8, l65285, t39_65289 '! 241 bytes
                If t39_65289.l0 > 0 Then
                  i65279 = i65530
                  If i65279 = 1 Then
                    SortAdd t39_65289.s84, l65285
                  Else
13947               If i65279 = 2 Then
                      SortAdd t39_65289.s4, l65285
                      GoTo 13986
                    End If
                  End If
13986             l65281 = l65281 + 1
                  If l65281 Mod 16 = 0 Then
                    SubText 1, Str(l65281)
                    Print Func4720((22)); Chr(13);
                  End If
                End If
14063         Loop
14069         SubText 1, Str(l65281 - 1)
              Print Func4720((22))
            End If
14111       l65285 = 0
14117       Do While l65285 <= LOF(8) And Not DisplayStopped
              If i65530 < 3 Then
                l65285 = SortNext
              Else
14171           l65285 = IndexQueryNext
              End If
14179         If l65285 < 0 Then
                GoTo 14243
              End If
14199         Get 8, l65285, t39_65289 '! 241 bytes
              If t39_65289.l0 > 0 Then
                Sub13455(t39_65289.l0)
              End If
14237       Loop
14243
            Print Func4720((15))
            Print Func4720((23))
          Else
14299
            Print Func4720((24))
          End If
14324     WaitEnter
          IndexClose
        End If
14330
      End Sub

'! Called 1 time
      Sub Sub14337
        Dim i65281 As Integer '! Temporary
        Dim i65283 As Integer
        Dim l65285 As Long
        Dim l65289 As Long
        Dim t40_65293 As Type40
        Dim i65534 As Integer

        i65534 = Func7981
        If i65534 = 0 Then
        Else
14377     If i65534 < 3 Then
            Print Func4720((21))
            SortStart
            l65285 = 0
            l65289 = 1
14433       Do While l65289 <= LOF(8) And InKey(1213417543) <> " "
              Get 8, l65289, t40_65293 '! 241 bytes
              If t40_65293.l0 > 0 Then
                i65283 = i65534
                If i65283 = 1 Then
                  SortAdd t40_65293.s84, l65289
                Else
14546             If i65283 = 2 Then
                    SortAdd t40_65293.s4, l65289
                    GoTo 14585
                  End If
                End If
14585           l65285 = l65285 + 1
                If l65285 Mod 16 = 0 Then
                  SubText 1, Str(l65285)
                  Print Func4720((22)); Chr(13);
                End If
              End If
14662         l65289 = l65289 + 1
            Loop
14682       SubText 1, Str(l65285)
            Print Func4720((22))
          End If
14720     l65289 = 0
14726     Do While Not DisplayStopped
            If i65534 < 3 Then
              l65289 = SortNext
              If l65289 < 0 Then
                GoTo 14868
              End If
14780       Else
14786         l65289 = l65289 + 1
              If l65289 > LOF(8) Then
                GoTo 14868
              End If
            End If
14824       Get 8, l65289, t40_65293 '! 241 bytes
            If t40_65293.l0 > 0 Then
              Sub13455(t40_65293.l0)
            End If
14862     Loop
14868
          Print Func4720((15))
          Print Func4720((23))
          WaitEnter
        End If
14921
      End Sub

'! Called 1 time
      Sub Sub14924
      End Sub

'! Called 1 time
      Sub Sub14936
        Dim l65526 As Long
        Dim i65530 As Integer
        Dim s65532 As String

        s5307 = t26_5311.s282 + Str(User.UserId) + ".ABO"
        If Exists(s5307) Then
          Open s5307 For Input As 1
          i5655 = 0
15019     Do While Not EOF(1)
            Input #1, t41_4463(i5655).s0
            Input #1, t41_4463.s480(i5655)
            i5655 = i5655 + 1
          Loop
15123     Close 1
        End If
15128
15148   For i5655 = 0 To 10 Step 1
          If t41_4463(i5655).s0 = "" Then
            t41_4463(i5655).s0 = "@0C@Empty@0B@"
            t41_4463.s480(i5655) = "@0C@No-One@0B@"
          End If
15316   Next
15339   Sub15525
        Do
15345     Print "@0E@[@0F@R@0E@]edefine an Address, [@0F@W@0E@]rite to an Address, or [@0F@Q@0E@]uit"
          Print "Your choice? [R, W, Q]: ";
          Do
15363       s5967 = UCase(InKey(1213417543))
          Loop Until s5967 > ""
          s65532 = s5967
          If s65532 = "R" Then
            Sub16939
          Else
15432       If s65532 = "W" Then
              Sub17455
            Else
15461         If s65532 = "Q" Then
                GoTo 15518
                GoTo 15490
              End If
            End If
          End If
15490     If i5971 = -1 Then
            GoTo 15518
          End If
15512   Loop
15518
      End Sub

'! Called 4 times
      Sub Sub15525
        Dim l65530 As Long
        Dim i65534 As Integer

        Cls
        Print "@09@   @01@▄@09@█@19@████████████████████████████████████████████████████████████████@07@"
        Print "@07@   @01@█@09@██@01@▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█@09@██@07@"
        Print "@07@   @01@█@09@██@07@                        @03@        @07@                            @01@█@09@██@07@"
        Print "@07@  @09@ @01@█@09@██                      @03@Address Book@09@                          @01@█@09@██@07@"
        Print "@07@  @09@ @01@█@09@██  @8F@NOTE:@0F@ This Address Book is for Internet Addresses ONLY!   @01@█@09@██@07@"
        Print "@07@   @01@█@09@█@19@████████████████████████████████████████████████████████████████@07@"
        Print "@07@   @01@▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@03@"
        Print "@03@" + Chr(27) + "[3;28H@USER@'s@07@"
        Locate 9, 1
15636   For i5655 = 0 To 10 Step 1
          Print "@0E@[@0F@"; i5655; "@0E@] Add:@0F@"; Pad(t41_4463(i5655).s0, 30); "@0E@Name: @0F@"; t41_4463.s480(i5655); "@0B@"
        Next
15820
      End Sub

'! Called 2 times
      Sub Sub15823
        Dim s65520 As String '! Temporary
        Dim i65522 As Integer '! Temporary
        Dim s65524 As String '! Temporary
        Dim l65528 As Long
        Dim i65532 As Integer
        Dim i65534 As Integer

        Cls
        Print
        Print
        Locate 2, 30
        Print "@0C@"; "C"; "@04@"; "yber"; "@0C@"; "W"; "@04@"; "are  "; "@0C@"; "I"; "@04@"; "nstaller"; "@0C@"
        Locate 3, 37
        Print "@0C@"; "v"; "@04@"; ".3.00"
        Locate 4, 34
        Print "@0C@"; "W"; "@04@"; "ritten "; "@0C@"; " B"; "@04@"; "y "; "@0C@"
        Locate 5, 27
        Print "C"; "@04@"; "yber"; "@0C@"; "D"; "@04@"; "eck "; "@0C@"; "S"; "@04@"; "ystems "; "@0C@"; "S"; "@04@"; "oftware"
        Print "@0E@";
16192   For i5655 = 1 To 5 Step 1
          Print
        Next
16267   Delay 5
        If Exists(s5735) Then
          Open s5735 For Input As 1
16311     Do While Not EOF(1)
            Input #1, t26_5311.i280
            Input #1, t26_5311.s282
          Loop
16357     Close 1
          Cls
          Print "Version 1.0 Configuration read into Memory"
          Print
          Print Tab(20); "@0C@ InterNet Messanger Configuration Values"
          Sub19964(("@0B@SysopName"), (t26_5311.s0))
          Sub19964(("@0B@BBS Name"), (t26_5311.s60))
          Sub19923(("@0B@Internet Email Conference Numer"), (t26_5311.i280))
          Print
          Print
          If Not InputYesNo("Is the above information Correct?", 1213417543) Then
            GoTo 16651
          Else
16581       Sub19762
          End If
16587     Del s5735
          i65534 = -1
        Else
16610     i65534 = 0
        End If
16616   If i65534 = 0 Then
          If (Not Exists(t26_5311.s140)) = 0 Then GoTo 16716
          Do
16651       If Exists(s5735) Then
              Del s5735
            End If
16675       t26_5311.i280 = InputNumber("Enter your Internet Email Conference Number: ", 0, MakeWild.MaxConfAreas - 1)
            Print
            GoTo 16722
16716       Sub19835
16722       Cls
            Print Tab(20); "@0C@ InterNet Messanger Configuration Values"
            Sub19964(("@0B@SysopName"), (t26_5311.s0))
            Sub19964(("@0B@BBS Name"), (t26_5311.s60))
            Print
            Sub19923(("@0B@Internet Email Conference Numer"), (t26_5311.i280))
            Print
            If (Not InputYesNo("Is the above information Correct?", 1213417543)) = 0 Then GoTo 16930
          Loop
          GoTo 16936
16930     Sub19762
        End If
16936
      End Sub

'! Called 1 time
      Sub Sub16939
        Dim l65530 As Long
        Dim i65534 As Integer

        Do
16948     If InputYesNo("@0E@Would you like to Redefine an address? ", -1) Then
            i5917 = InputNumber("Which Address? [0-10] ", 0, 10)
            Print "@0E@New Address to save in position #;"; i5917
            Input s5855
            t41_4463(i5917).s0 = s5855
            Print "@0E@Who's Address is this?"
            Input s5919
            t41_4463.s480(i5917) = s5919
            Open s5307 For Output As 1
17138       For i5655 = 0 To 10 Step 1
              Print #1, t41_4463(i5655).s0
              Print #1, t41_4463.s480(i5655)
            Next
17286       Close 1
            Open s5307 For Input As 1
            i5655 = 0
17316       Do While Not EOF(1)
              Input #1, t41_4463(i5655).s0
              Input #1, t41_4463.s480(i5655)
              i5655 = i5655 + 1
            Loop
17420       Close 1
            Sub15525
          Else
17437       GoTo 17449
          End If
17443   Loop
17449   WaitEnter
      End Sub

'! Called 1 time
      Sub Sub17455
        Dim l65526 As Long
        Dim i65530 As Integer
        Dim s65532 As String

        Print
        i5917 = InputNumber("Which Address would you like write to? (0-10) (11 to Abort)", 0, 11)
        If i5917 = 11 Then
          i5653 = -1
        Else
17511     i5653 = 0
        End If
17517   If i5653 = -1 Then
        Else
17539     If i5653 = 0 Then
            If t41_4463(i5917).s0 = "Empty" Then
              If InputYesNo("@0E@This is an Empty slot. Would you like to define an address for it? [Y/N] ", 1213417543) Then
                Print "New Address to save in Position #"; i5917
                Input s5855
                t41_4463(i5917).s0 = s5855
                Print "Who's Address is this?"
                Input s5919
                t41_4463.s480(i5917) = s5919
                Open s5307 For Output As 1
17773           For i5655 = 1 To 10 Step 1
                  If i5655 = i5915 Then
                    Print #1, t41_4463(i5915).s0
                    Print #1, t41_4463.s480(i5915)
                  Else
17922               Print #1, t41_4463(i5655).s0
                    Print #1, t41_4463.s480(i5655)
                  End If
17997           Next
18020           Close 1
                Open s5307 For Input As 1
                i5655 = 0
18050           Do While Not EOF(1)
                  Input #1, t41_4463(i5655).s0
                  Input #1, t41_4463.s480(i5655)
                  i5655 = i5655 + 1
                Loop
18154           Close 1
                Sub15525
              Else
18171           Sub15525
              End If
            End If
18177       s5795 = t41_4463(i5917).s0
          End If
18213     Cls
          s5963 = s5795 + Chr(13)
          s5657 = s5795
          Locate 7, 1
          Print "Address "; t41_4463(i5917).s0; " imported from Address Book"
          Print
          Locate 8, 1
          Print "Please enter the subject: 60 Characters"
          Locate 9, 1
          Print "["
          Locate 9, 62
          Print "]"
          Locate 9, 2
          Input s5665
          If s5665 = "" Then
            Print "@8C@Message aborted"
            WaitEnter
          Else
18400       Open "temp_msg.txt" For Output As 1
            Print #1, "To: "; s5963
            Close 1
            If EditFile("temp_1.txt", 200, "Outbound Internet Message") Then
              Open "temp_msg.txt" For Append As 1
              Open "temp_1.txt" For Input As 2
18502         Do While Not EOF(2)
                Input #2, s65532
                Print #1, s65532
              Loop
18537         Close 1
              Close 2
              Del "temp_1.txt"
              s5661 = "temp_msg.txt"
              i5653 = 0
            Else
18576         i5653 = -1
              Print "@8C@Message aborted"
              WaitEnter
            End If
18596       If i5653 = -1 Then
              GoTo 18646
            Else
18624         i5971 = -1
              i5961 = i5961 + 1
            End If
          End If
        End If
18646
      End Sub

'! Called 1 time
      Sub Sub18653
        Dim s65532 As String

        s65532 = ProgPath + "INADD.HLP"
        If Exists(s65532) Then
          DisplayTextFile(s65532)
        Else
18703     Print "@CLS@@31@ ┌───────────────────────────────────────────────────────────────────────────┐ "
          Print " │ [I]nterNet Messenger UUCP    @3F@Quick Reference                     @31@Commands │ "
          Print " └───────────────────────────────────────────────────────────────────────────┘ @0A@"
          Print
          Print "   Internet Messenger UUCP is, essentually, an address book for your Internet"
          Print "   addresses. The REGISTERED Version allows USERS to have a personal address"
          Print "   book. The UNREGISTERED only allows the Sysop to have one."
          Print
          Print
          Print "     Commands:"
          Print "     [@0F@I@0A@]....InterNet eMail - Enter a Message addressed to an Internet Address"
          Print "     [@0F@O@0A@]....Opens your PERSONAL Internet Address Book"
          Print "     [@0F@P@0A@]....Opens the PUBLIC Internet Address Database"
          Print "     [@0F@H@0A@]....This Help Screen"
          Print "     [@0F@A@0A@]....Abort - Exits back to BBS"
          Print
          Print
          Print "  Nothing could be easier!"
          Print
          Print
          Print "@0B@┌──────────────@31@ For Detailed Descriptions, select [C]ontinue @0B@───────────────┐"
          Print "╘═══════════════════════════════════════════════════════════════════════════╛@0F@"
          Print "@PAUSE@@CLS@@31@ ┌───────────────────────────────────────────────────────────────────────────┐ "
          Print " │ [I]nterNet Messenger UUCP  @3F@Detailed Description               @31@Definations │ "
          Print " └───────────────────────────────────────────────────────────────────────────┘ @0E@"
          Print
          Print "Internet eMail - @0A@Internet eMail is mail destined for anyone of the MILLIONS"
          Print " @0F@              @0A@  of Internet nodes Worldwide. It is generally very fast, and"
          Print " @0F@                @0A@reliable. The Internet is a Huge collection of separate Wide"
          Print " @0F@                @0A@and Local Area Networks tied together, the majority of Nets@07@"
          Print " @0F@                @0A@on the Internet run UNIX. This BBS runs in DOS, therefore"
          Print " @0F@                @0A@a provider must copy the message to a form readable by UNIX"
          Print " @0F@                @0A@to send it over the InterNet. This provider is called a UUCP"
          Print " @0F@                @0A@GATEWAY. InterNet eMail leaving this BBS must be routed to"
          Print " @0F@                @0A@the Proper UUCP gateway via Netmail.@0E@"
          Print
          Print "@0E@Address Book  -  @0A@With the REGISTERED version of InterNet Messenger you have a"
          Print "   @0F@           @0A@   personal Internet address book. In this book you can store up@03@"
          Print "@03@   @0F@              @0A@to 11 Internet addresses along with the Name of the person or@03@"
          Print "@0A@                 entity that the address belongs to. After Opening your address"
          Print "                 book you can write to any of your defined addresses with a"
          Print "@0A@                 Keypress, no retyping the address again and again."
          Print
          Print "@0E@Public database-@0A@ The PUBLIC Address Database contains useful Internet addresses"
          Print "                 Entered by other users (And some are supplied by the author). "
          Print "                 You may search the Database, Add new addresses, or delete "
          Print "                 Addresses that you may have previously entered."
          Print
          Print " @0B@┌──────────────@31@              End of Help File                @0B@───────────────┐"
          Print " ╘═══════════════════════════════════════════════════════════════════════════╛@0F@"
          WaitEnter
        End If
19079
      End Sub

'! Called 1 time
      Sub Sub19086(s65534 As String)
        Dim dt65528 As DateTime

        CurrentDateTime dt65528
        Open "inadd.err" For Append As 1
        Print #1, "                           InterNet Addresser Error Log"
        Print #1, String(75, "-")
        Print #1, "Date: "; FormatDate(dt65528.D, "mm/dd/yyyy");
        Print #1, "Time: "; FormatTime(dt65528.T, "HH:MM")
        Print #1, s65534
        Print #1, String(75, "-")
        Close 1
      End Sub

'! Called 1 time
      Sub Sub19230
        If i5733 = -1 Then
          Cls
          Print "@0F@REGISTERED TO: "; t26_5311.s0; "@0C@ "
          Print "█████████████████████████████████████████████████████████████████████@1C@█████████@0C@█@4C@"
          Print "██@1C@▌@1B@╔═════════════════ Easy Addressing of InterNet Email ════════════════════╗@1C@▐█@0C@"
          Print "█@14@█▌@1B@║@12@█████▄@1F@│││││││││││││││││││││││││││││││││││││@1A@▀██████@1F@││││││││││││││││││││@12@▄▄@1B@║@1C@▐█@0C@"
          Print "█@14@█▌@1B@║@12@████████@2A@▄▀░   @12@▄▄▄██  █@2F@·@2A@▄@12@█@2A@░@12@█@2A@░@12@███ ▄▄▄▄█▄ @1F@│  │ @1A@▀██▀▀  @1F@│  │  @12@▀  █▄ ▄▄▄▄▄███@1A@█@1B@║@1C@▐█@0C@"
          Print "█@14@█▌@1B@║@2A@█▄░░@12@█@2A@█▄█  @12@█@2A@░░@12@████▀@1F@│  @12@▀█@22@ @2A@█@12@██@2A@░░@12@██@2A@▒▒▓@12@█▀▀  ▄  @1F@│  @1A@█  @1F@│  │ @12@∙@1F@│@12@▐██▀██@2A@▄▄▄@1A@████████@1B@║@1C@▐█@0C@"
          Print "█@14@█▌@1B@║@2A@██▓░@12@██@2A@█▀@12@██▀▀▀ █▀  @1F@│  @12@▀▀ @1F@│  @12@▀██@2A@▄ ▓▓@12@██▄ ▀██▄@1F@│  │  │  │@12@▄▄███@2A@▄▄▄@1A@████████████@1B@║@1C@▐█@0C@"
          Print "█@14@█▌@1B@║@2A@███▄▀░@12@███████·.@1F@│  │  │  │  │@12@▐█@2F@·@2A@█▀@2F@.@2A@█@12@█@2F@·@12@██@AF@.@12@▌ @1F@│  │  │  │@12@▐▀▐@22@ @12@█@22@ @2A@▀@1A@████@2A@▀ @1A@███████@1B@║@1C@▐█@0C@"
          Print "█@14@█▌@1B@║@12@██@2A@██▒░@12@██▀@1F@│@12@▄▌@1F@│@12@∙ @1F@│  │  │@12@∙.@1F@│@12@· @1F@│ @2F@·@12@█@2A@▀█@12@█@2F@·  ·@12@█▀  @1F@│  │  │  │@12@▄█▀▀▀█▀▀@22@      @2A@▀@1A@█████@1B@║@1C@▐█@0C@"
          Print "█@14@█▌@1B@║@12@███@2A@▀█@12@██▐ @1A@▐@12@.·@1F@│  │  │  │  │  │  @12@▀@2F@·@12@█@2A@▀@12@▀█▀@2F@·@12@∙@1F@│@12@· @1F@│  │  │ @12@∙@1F@│@12@▄▄██▄@1F@│@12@▄▄@1F@│@12@▄▀▐@22@     @1A@███@1B@║@1C@▐█@0C@"
          Print "█@14@█▌@1B@║@12@▀███@2A@▀▓@12@█  @1F@│ @1E@╔═══════════════════╗@12@▀█▄ @1F@│@12@.·@1F@│  │  │  │  @12@▄██████████████████@1A@██@1B@║@1C@▐█@0C@"
          Print "█@14@█▌@1B@║@1F@│ @12@▀██@2A@░░@12@█ @1F@│ @1E@║@01@█ @0F@┬ @89@U@8B@UCP@89@ V@8B@ersion@0F@  @01@█@1E@║ @1F@│@12@▀▀█▄ ▄  @1F@│  │  │  @12@███████@22@ @12@█@2A@░@12@██▄▄ @1F@│  @12@█▀@1F@│@1B@║@1C@▐█@0C@"
          Print "█@14@█▌@1B@║@1F@┼──┬─@12@▄@1F@┼@12@■@1F@─┼─@1E@║@01@█ @0B@│┬┐┼┌┐┬┐┬┐┌┐┼│  @01@█@1E@║@1F@─┼──┼@12@▀█████▄@1F@─┼──┼──┼─@12@▀▀██@2A@▓@12@██@2A@▓▓@12@██@1F@──┼──┼─┤@1B@║@1C@▐█@0C@"
          Print "█@14@█▌@1B@║@1F@│ @12@▀@1F@│  │  │ @1E@║@01@█ @0F@┴┴└└└─┴ ┴└└─└" + Chr(4) + "  @01@█@1E@║ @1F@│  │@12@████@2A@░@12@███▄▄ @1F@│@12@. @1F@│@12@· @1F@│ @12@███@2A@█▓@12@██@1F@│  │  │ │@1B@║@1C@▐█@0C@"
          Print "█@14@█▌@1B@║@1F@│ @1A@▀@1F@│  │@12@▐▄@1F@│ @1E@║@01@█ @0E@∙@0B@Add@03@re@0B@ss@03@er @0B@3.0@0E@∙ @01@█@1E@║ @1F@│@12@. @1F@│@12@·▀██@2A@▒█@12@██▀  @1F@│@12@·.@1F@│  │@12@.∙█████ ▄  @1F@│  │ │@1B@║@1C@▐█@0C@"
          Print "█@14@█▌@1B@║@1F@│  │ @12@▄██@22@ @2A@░░@1E@╚═══════════════════╝ @1F@│  │ @12@·@1F@│@12@▀█@2A@░@12@█▀@1F@│  │  │  │  @12@███   @1F@│  │  │ │@1B@║@1C@▐█@0C@"
          Print "█@14@█▌@1B@║@1F@│  │  @12@█▀▀▀@2A@░@12@▄@1F@│ @12@.@1F@│@12@∙ @1F@│  │@12@·.@1F@│  │  │  │  │  │@12@███  @1F@│  │  │  │ @12@∙@1F@│@12@▀▀@1F@│  │  │  │ │@1B@║@1C@▐█@0C@"
          Print "█@14@█▌@1B@║@1F@│  │  │  │ @12@▀@1F@│@12@.·@1F@│@1A@▄ @1F@│  │@12@∙·@1F@│  │  │  │  │ @12@∙▀██@1F@│  │  │  │  │  │@12@∙·@1F@│  │  │  │ │@1B@║@1C@▐█@0C@"
          Print "█@14@█▌@1B@║@1F@│  │  │  │ @1A@▀@1F@│  @12@▀  @1F@│  │  │  │  │  │  │  │@12@█ @1F@│  │  │  │  │  │  │  │  │  │ │@1B@║@1C@▐█@0C@"
          Print "█@14@█▌@1B@╚═ 1994 CyberDeck Systems Software         @9F@REGISTERED!@1B@            ═══════╝@1C@▐█@4C@"
          Print "█     @40@For more info on other CSS programs email [e-mail]  @4C@████@0C@"
          Print "▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@0F@"
          Delay 2
        Else
19485     Cls
          Print "@8F@UNREGISTERED EVALUATION COPY@07@  @0B@If you like this program you can 'adopt' it!@0C@"
          Print "█████████████████████████████████████████████████████████████████████@1C@█████████@0C@█@4C@"
          Print "██@1C@▌@1B@╔═════════════════ Easy Addressing of InterNet Email ════════════════════╗@1C@▐█@0C@"
          Print "█@14@█▌@1B@║@12@█████▄@1F@│││││││││││││││││││││││││││││││││││││@1A@▀██████@1F@││││││││││││││││││││@12@▄▄@1B@║@1C@▐█@0C@"
          Print "█@14@█▌@1B@║@12@████████@2A@▄▀░   @12@▄▄▄██  █@2F@·@2A@▄@12@█@2A@░@12@█@2A@░@12@███ ▄▄▄▄█▄ @1F@│  │ @1A@▀██▀▀  @1F@│  │  @12@▀  █▄ ▄▄▄▄▄███@1A@█@1B@║@1C@▐█@0C@"
          Print "█@14@█▌@1B@║@2A@█▄░░@12@█@2A@█▄█  @12@█@2A@░░@12@████▀@1F@│  @12@▀█@22@ @2A@█@12@██@2A@░░@12@██@2A@▒▒▓@12@█▀▀  ▄  @1F@│  @1A@█  @1F@│  │ @12@∙@1F@│@12@▐██▀██@2A@▄▄▄@1A@████████@1B@║@1C@▐█@0C@"
          Print "█@14@█▌@1B@║@2A@██▓░@12@██@2A@█▀@12@██▀▀▀ █▀  @1F@│  @12@▀▀ @1F@│  @12@▀██@2A@▄ ▓▓@12@██▄ ▀██▄@1F@│  │  │  │@12@▄▄███@2A@▄▄▄@1A@████████████@1B@║@1C@▐█@0C@"
          Print "█@14@█▌@1B@║@2A@███▄▀░@12@███████·.@1F@│  │  │  │  │@12@▐█@2F@·@2A@█▀@2F@.@2A@█@12@█@2F@·@12@██@AF@.@12@▌ @1F@│  │  │  │@12@▐▀▐@22@ @12@█@22@ @2A@▀@1A@████@2A@▀ @1A@███████@1B@║@1C@▐█@0C@"
          Print "█@14@█▌@1B@║@12@██@2A@██▒░@12@██▀@1F@│@12@▄▌@1F@│@12@∙ @1F@│  │  │@12@∙.@1F@│@12@· @1F@│ @2F@·@12@█@2A@▀█@12@█@2F@·  ·@12@█▀  @1F@│  │  │  │@12@▄█▀▀▀█▀▀@22@      @2A@▀@1A@█████@1B@║@1C@▐█@0C@"
          Print "█@14@█▌@1B@║@12@███@2A@▀█@12@██▐ @1A@▐@12@.·@1F@│  │  │  │  │  │  @12@▀@2F@·@12@█@2A@▀@12@▀█▀@2F@·@12@∙@1F@│@12@· @1F@│  │  │ @12@∙@1F@│@12@▄▄██▄@1F@│@12@▄▄@1F@│@12@▄▀▐@22@     @1A@███@1B@║@1C@▐█@0C@"
          Print "█@14@█▌@1B@║@12@▀███@2A@▀▓@12@█  @1F@│ @1E@╔═══════════════════╗@12@▀█▄ @1F@│@12@.·@1F@│  │  │  │  @12@▄██████████████████@1A@██@1B@║@1C@▐█@0C@"
          Print "█@14@█▌@1B@║@1F@│ @12@▀██@2A@░░@12@█ @1F@│ @1E@║@01@█ @0F@┬ @89@U@8B@UCP@89@ V@8B@ersion@0F@  @01@█@1E@║ @1F@│@12@▀▀█▄ ▄  @1F@│  │  │  @12@███████@22@ @12@█@2A@░@12@██▄▄ @1F@│  @12@█▀@1F@│@1B@║@1C@▐█@0C@"
          Print "█@14@█▌@1B@║@1F@┼──┬─@12@▄@1F@┼@12@■@1F@─┼─@1E@║@01@█ @0B@│┬┐┼┌┐┬┐┬┐┌┐┼│  @01@█@1E@║@1F@─┼──┼@12@▀█████▄@1F@─┼──┼──┼─@12@▀▀██@2A@▓@12@██@2A@▓▓@12@██@1F@──┼──┼─┤@1B@║@1C@▐█@0C@"
          Print "█@14@█▌@1B@║@1F@│ @12@▀@1F@│  │  │ @1E@║@01@█ @0F@┴┴└└└─┴ ┴└└─└" + Chr(4) + "  @01@█@1E@║ @1F@│  │@12@████@2A@░@12@███▄▄ @1F@│@12@. @1F@│@12@· @1F@│ @12@███@2A@█▓@12@██@1F@│  │  │ │@1B@║@1C@▐█@0C@"
          Print "█@14@█▌@1B@║@1F@│ @1A@▀@1F@│  │@12@▐▄@1F@│ @1E@║@01@█ @0E@∙@0B@Add@03@re@0B@ss@03@er @0B@3.0@0E@∙ @01@█@1E@║ @1F@│@12@. @1F@│@12@·▀██@2A@▒█@12@██▀  @1F@│@12@·.@1F@│  │@12@.∙█████ ▄  @1F@│  │ │@1B@║@1C@▐█@0C@"
          Print "█@14@█▌@1B@║@1F@│  │ @12@▄██@22@ @2A@░░@1E@╚═══════════════════╝ @1F@│  │ @12@·@1F@│@12@▀█@2A@░@12@█▀@1F@│  │  │  │  @12@███   @1F@│  │  │ │@1B@║@1C@▐█@0C@"
          Print "█@14@█▌@1B@║@1F@│  │  @12@█▀▀▀@2A@░@12@▄@1F@│ @12@.@1F@│@12@∙ @1F@│  │@12@·.@1F@│  │  │  │  │  │@12@███  @1F@│  │  │  │ @12@∙@1F@│@12@▀▀@1F@│  │  │  │ │@1B@║@1C@▐█@0C@"
          Print "█@14@█▌@1B@║@1F@│  │  │  │ @12@▀@1F@│@12@.·@1F@│@1A@▄ @1F@│  │@12@∙·@1F@│  │  │  │  │ @12@∙▀██@1F@│  │  │  │  │  │@12@∙·@1F@│  │  │  │ │@1B@║@1C@▐█@0C@"
          Print "█@14@█▌@1B@║@1F@│  │  │  │ @1A@▀@1F@│  @12@▀  @1F@│  │  │  │  │  │  │  │@12@█ @1F@│  │  │  │  │  │  │  │  │  │ │@1B@║@1C@▐█@0C@"
          Print "█@14@█▌@1B@╚═ 1994 CyberDeck Systems Software @1E@ASK YOUR SYSOP TO @9E@REGISTER@1E@ ME!@1B@ ═══════╝@1C@▐█@4C@"
          Print "█     @40@For more info on other CSS programs email [e-mail]  @4C@████@0C@"
          Print "▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@0F@"
          Delay 5
        End If
19694
      End Sub

'! Called 1 time
      Sub Sub19697
        If Conference.Number = t26_5311.i280 Then
          GoTo 19759
        Else
19746     Join t26_5311.i280
        End If
19759
      End Sub

'! Called 2 times
      Sub Sub19762
        Open t26_5311.s140 For Output As 1
        Print #1, t26_5311.i280
        Print #1, t26_5311.s282
        Close 1
      End Sub

'! Called 2 times
      Sub Sub19835
        Open t26_5311.s140 For Input As 1
19869   Do While Not EOF(1)
          Input #1, t26_5311.i280
          Input #1, t26_5311.s282
        Loop
19915   Close 1
      End Sub

'! Called 2 times
      Sub Sub19923(s65534 As String, i65532 As Integer)
        Print Trim(s65534); ": @0A@"; i65532
      End Sub

'! Called 4 times
      Sub Sub19964(s65534 As String, s65532 As String)
        Print Trim(s65534); ": "; Trim(s65532)
      End Sub

'! Called 0 times
'!      Sub Sub20007(s65534 As String)
'!        If s65534 = "" Then
'!          i5653 = -1
'!        Else
'!20049     i5653 = 0
'!        End If
'!20055
'!      End Sub

'! Called 1 time
      Function Func20058(mh65534 As MessageHeader) As Integer
        Dim i65530 As Integer

        Func20058 = 0
        Do
20073     mh65534.From = User.Name
          mh65534.To = s5657
          mh65534.Subject = s5665
          mh65534.Flags = mh65534.Flags Or 1
          mh65534.Flags = mh65534.Flags Or 2
          i65530 = Trim(mh65534.Subject) > ""
          If Not i65530 Then
            If InputYesNo("No Subject Line Abort Message ?", 1213417543) Then
              GoTo 20269
            End If
          End If
20250   Loop Until i65530
        Func20058 = -1
20269
      End Function